Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim datobj As New DataObject()
        If TypeOf Me.ActiveControl Is TextBox Then
            datobj.SetData(DataFormats.Text, Me.ActiveControl.Text)
            Clipboard.SetDataObject(datobj)
        elseIf TypeOf Me.ActiveControl Is PictureBox Then
            datobj.SetData(DataFormats.Text, Me.ActiveControl.Text)
            Clipboard.SetDataObject(datobj)
        End If
    End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            If Clipboard.GetDataObject.GetDataPresent(DataFormats.Text) Then
                Me.ActiveControl.Text = Clipboard.GetDataObject.GetData( _
                DataFormats.Text)
            Else
                MsgBox("Invalid data in clipboard", _
                    MsgBoxStyle.Information, Me.Text)
            End If
        ElseIf TypeOf Me.ActiveControl Is PictureBox Then
            If Clipboard.GetDataObject.GetDataPresent(DataFormats.Bitmap) _
              Then
                Me.ActiveControl.Text = Clipboard.GetDataObject.GetData( _
                DataFormats.Bitmap)
            Else
                MsgBox("Invalid data in clipboard", _
                    MsgBoxStyle.Information, Me.Text)
            End If
        End If
    End Sub
